
PORTA EQU 0640H ;A口输出
PORTB EQU 0642H ;B口输出
CONTROL EQU 0646H

CODE SEGMENT
ASSUME CS:CODE

START:  
	MOV AL,080H  ;方式字10000000
    	MOV DX,CONTROL ;找到8255控制口的地址
    	OUT DX,AL  ;方式字送控制口
	MOV BX,8001H ;10000000 00000001
	
P:          
	MOV DX,PORTA ;找到8255的输入口A口
	MOV AL,BH;BX高8位
	OUT DX,AL ;向A口传输BX高八位--
	ROR BH,1;BX高8位右移1位
	MOV DX,PORTB;找到8255的输出口B口
	MOV AL,BL;BX低8位
	OUT DX,AL;向B口传输BX低8位
	ROL BL,1;BX低八位左移1位

	CALL DELAY    ;调用子程序 起延时作用

	JMP P
              
DELAY:	
	PUSH CX
	MOV CX, 2000 ;循环2000次
AA2:	
	PUSH AX
	POP  AX
	LOOP AA2
	POP  CX
	RET    ;返回P

CODE ENDS
END START

